Code Implementation

Problem 1

Default.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Check List</title>
</head>
<body>
    <form id="form1" method="post" runat="server">
        Choose your favorite programming language:<br /> <br />
        <asp:CheckBoxList ID="chklst" runat="server" /> <br /> <br />
        <asp:Button id="cmdOK" Text="OK" runat="server" /> <br /> <br />
        <asp:Label id="lblResult" runat="server" />
    </form>
</body>
</html>

Default.aspx.vb


Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            chklst.Items.Add("C")
            chklst.Items.Add("C++")
            chklst.Items.Add("C#")
            chklst.Items.Add("Visual Basic 6.0")
            chklst.Items.Add("VB.NET")
            chklst.Items.Add("Pascal")
        End If
    End Sub
    Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        lblResult.Text = "You Chose:"
        Dim lstItem As ListItem
        For Each lstItem In chklst.Items
            If lstItem.Selected = True Then
            lblResult.Text &= "<br/>" & lstItem.Text
            End If
        Next
    End Sub
End Class

Problem 2

CreateTable.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CreateTable.aspx.vb" Inherits="CreateTable" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Create Table</title>
</head>
<body>
    <form id="form1" method="post" runat="server">
        Rows: 
        <asp:TextBox id="txtRows" runat="server" /> &nbsp;
        Columns: 
        <asp:TextBox id="txtCols" runat="server" /> <br /> <br />
        <asp:CheckBox id="chkBorder" runat="server" Text="Put Border around Cells" /> <br /> <br />
        <asp:Button id="cmdCreate" Text="Create Table" runat="server" OnClick="cmdCreate_Click" /><br /> <br />
        <asp:Table id="tbl" runat="server" />
        <br />
        <br />
    </form>
</body>
</html>

CreateTable.aspx.vb

Partial Class CreateTable
    Inherits System.Web.UI.Page

    Protected Sub cmdCreate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdCreate.Click
        tbl.Controls.Clear()
        Dim i, j As Integer

        Dim rows As Integer
        Dim cols As Integer

        If Integer.TryParse(txtRows.Text, rows) AndAlso Integer.TryParse(txtCols.Text, cols) Then
            For i = 0 To rows - 1
                Dim rowNew As New TableRow()
                tbl.Controls.Add(rowNew)
                For j = 0 To cols - 1
                    Dim cellNew As New TableCell()
                    Dim lblNew As New Label()
                    lblNew.Text = "Example Cell (" & i.ToString() & "," & j.ToString() & ")<br>"
                    Dim imgNew As New System.Web.UI.WebControls.Image()
                    imgNew.ImageUrl = "emojiImage.png"
                    cellNew.Controls.Add(lblNew)
                    cellNew.Controls.Add(imgNew)
                    If chkBorder.Checked Then
                        cellNew.BorderStyle = BorderStyle.Inset
                        cellNew.BorderWidth = Unit.Pixel(1)
                    End If
                    rowNew.Controls.Add(cellNew)
                Next
            Next
        End If
    End Sub
End Class